NPS55-85-029 


NAVAL  POSTGRADUATE  SCHOOL 

Monterey,  California 


TECHNICAL 


FUNCTION  PLOTTING  SOFTWARE  FOR  THE  IBM-PC 
AND  IBM-7371/7372  PLOTTERS 


ALVIN  F.  ANDRUS 


NOVEMBER  1985 


FedDocs 

D  208.14/2 

NPS-55-85-029 


Approved  for  public  release;  distribution  unlimited 

Prepared  for: 

Naval  Postgraduate  School 

Monterey,  CA  93943-5100 


NAVAL  POSTGRADUATE  SCHOOL 
Monterey,  California 


Rear  Admiral  R.  H.  Shumaker  D  A  Schradv 

Superintendent  Provost 


This  report  was  prepared  by 


Unclassified 


•KiTv  u  Aiv^i'ATlON  O-    1-<S   ^AGt 


PUDIFYKNf 


REPORT  DOCUM 


e  m  wgy 


ft    ORT  SECURITY  CLASSifiCATiON 

Unclassified 


ENTAT.QN  PAG^gj^POy     WjUATE SCHOOL 


lb    RESTRICTIVE    MARKINGS 


&*  0094a-SIU1 


SECURITY   LLASS.FiCATlON   AUTHORITY 


DECLASSIFICATION  /  DOWNGRADING   SCHEDULE 


J     DISTRIBUTION/ AVAILABILITY  OF   REPORT 

Approved  for  public  release;  distribution 
is  unlimited 


>ERFORMiNG  ORGANIZATION  REPORT  NUMBER(S) 


5    MONITORING  ORGANIZATION  REPORT  NUMBER(S) 


NAME  OF  PERFORMING  ORGANIZATION 

ival   Postgraduate  School   * 


6D    OFFICE  SYMBOL 
(If  applicable) 


7a    NAME  OF   MONITORING  ORGANIZATION 


ADDRESS  (Gfy,  State,  and  ZIP  Code) 

)nterey,  California  93943-5100 


7b    ADDRESS  [City,  State,  and  ZIP  Code) 


NAME  OF  FUNDING/SPONSORING 
ORGANIZATION 


80    OFFICE  SYMBOL 
(if  applicable) 


9.  PROCUREMENT  INSTRUMENT  IDENTIFICATION  NUMBER 


ADDRESS  (City,  State,  and  ZIP  Code) 


10    SOURCE   OF  FUNDING  NUMBERS 


PROGRAM 
ELEMENT  NO 


PROJECT 
NO 


TASK 
NO 


WORK    UNIT 
ACCESSION  NO 


TITLE  (include  Security  Classification) 

JNCTION  PLOTTING  SOFTWARE  FOR  THE  IBM-PC  AND  IBM-7371/7372  PLOTTERS 

PERSONAL  AUTHOR(S) 

ldrus,  Alvin  F. 


TYPE  OF  REPORT 

jchnical 


13b    TIME  COVERED 
FROM  TO 


14    DATE  OF  REPORT   (Year.  Month,  Day) 

85,   November  


15    PAGE  COUNT 

21 


SUPPLEMENTARY   NOTATION 


COSATl  CODES 


FIELD 


GROUP 


SUB-GROUP 


18    SUBJECT  TERMS  (Continue  on  reverse  if  necessary  and  identify  by  block  number) 

plotter,   IBM-PC 


ABSTRACT  (Continue  on  reverse  if  necessary  and  identify  by  block  number) 

lis  report  contains  a  program  and  user  instructions  for  plotting  functions  and  line  graphs 
i  the  IBM-7371  or  7372  color  plotter.  Program  input  and  operation  are  illustrated  and 
<plained.  Examples  that  illustrate  program  capabilities  are  included.  The  program  is 
-itten  in  IBM  BASICA. 


DISTRIBUTION/  AVAILABILITY  OF  ABSTRACT 
DJUNCLASSIFIED/UNLIMITED       D  SAME  AS  RPT  DOTlC   USERS 


i    NAME  OF  RESPONSIBLE  INDIV.DUAL 

vin   F.   Andrus 


21.  ABSTRACT  SECURITY  CLASSIFICATION 


220  TELEPHONE  (Include  Area  Code) 

(408)646-2413 


22c    OFFICE   SYMBOL 

Code  55As 


FORM  1473,  84  mar 


83  APR  edition  may  be  used  until  exnausted 
All  other  editions  are  obsolete. 


SECURITY  CLASSIFICATION  OF  THIS  PAGE 


TABLE    OF    CONTENTS 

1.  INTRODUCTION 1 

2.  PROGRAM  ACCESS 1 

3.  INPUT  FUNCTION  FILE 2 

4.  PROGRAM  STARTUP 2 


5. 


6. 


MENU?  

5.  1. 

Menu  1: 

5.2. 

Menu-2: 

5.3. 

Menu-3: 

5.4. 

Menu-4: 

5.5. 

Menu-5: 

5.6. 

Menu-6: 

5.7. 

Menu-7: 

5.8. 

Menu-8: 

5.9. 

Menu-9: 

5.10. 

Menu-10 

5.11. 

Menu-1 1 

5.12. 

Menu-12 

5.13. 

Menu-13 

5.14. 

Menu-14 

5.15. 

Menu-15 

Plotter  Switch  Settings 3 

Enter  File  Names 3 

Enter  Plotting  Parameters 4 

Enter  Function  Number  To  Plot 4 

Enter  (X,Y)  Points 4 

Enter  Plot  Titles 5 

Enter  Plot  Legends 5 

Enter  X-Axis  Labels 5 

Enter  Y-Axis  Labels 5 

Edit/Save  Input  Data 5 

Begin  Plot 5 

Enter  Point  Plot  Parameters 5 

Enter  Function  Plot  Parameters 6 

Begin  Printing 6 

Restart/End  Program. 6 


EXAMPLES 7 

6.1.  Example  1 7 

6.2.  Example  2 7 


7.  APPLICATION  EXTENSIONS 8 

8.  APPENDIX 12 

8.1.  APPENDIX  A:  IBM-PC  BASICA  Program 12 

9.  DISTRIBUTION 20 


LIST 


0  F 


FIGURES 


1:  Plotter  Output  for  Example  1 9 

2:  Plotter  Output  for  Y  =  Tan  (X)  with  Jump  Function  =  Y 10 

3:  Plotter  Output  for  Y  =  Tan  (X)  with  Jump  Function  =  N 10 

4:  Plotter  Output  for  Example  2 11 


LIST 


0  F 


TABLES 


1:  Input  Data  For  Example  1 9 

2:  Input  Data  For  Example  2 11 


1.  INTRODUCTION 

Available  IBM-PC  software  for  the  IBM-7231  and  7232  color  plotters 
has  one  major  deficiency:  the  software  will  not  accept  function  defini- 
tions as  standard  input.  Plotting  functions  requires  that  the  functions 
are  input  as  discrete  (X,Y)  coordinates. 

The  program  contained  and  illustrated  in  this  report  eliminates  the 
requirement  for  discrete  coordinate  inputs  in  order  to  plot  functions. 
Continuous  single  valued  functions  are  defined  using  the  construction 
rules  for  standard  BASIC  expressions.  These  function  definitions  then 
become  the  program  inputs.  The  program  will  also  accept  (X,Y)  points  and 
plot  a  line  graph  connecting  the  points.  The  program  is  written  in  IBM 
BASIC  and  is  included  as  Appendix  A.  The  program  input  requirements  ire: 

a. )  Input  function  file, 
b.)  Plotting  parameters, 
c. )  Line  graph  points. 

The  input  function  file  is  created  as  a  separate  file  and  contains 
the  function  definitions.  The  plotting  parameters  and  the  line  graph  are 
provided  in  response  to  program  interactive  menus. 

In  general  the  program  provides  the  user  with  the  capability  to: 

a.)  Plot  any  selection  of  five  user  defined  functions. 

b.)  Specify   line  formats,   pen  selection,   grid  spacing,   labels, 

legends  and  plot  size, 
c.)  Plot  a  line  graph  connecting  up  to  100  (X,Y)  points, 
d.)  Save  the  plotting  parameters  and  line  graph  points  in  an  input 

data  file. 

The  plot  is  horizontally  centered  on  8  1/2  x  11  inch  paper.  The 
plotting  area  is  a  square  with  user  defined  dimensions  from  three  to 
five  inches. 

2.  PROGRAM  ACCESS 


The  IBM-PC  BASIC  program  is  available  on  diskette  for  copying  from 
the  Operations  Research  Department  Office,  Root  272.  The  diskette  con- 
tains the  program  in  file  IBMPLOT. BAS,  sample  input  function  files 
IBMFEX1.BAS  and  IBMFEX2.BAS,  and  sample  input  data  files  IBMDEX1  and 
IBMDEX2  corresponding  to  Examples  1  and  2  of  this  report. 


3.  INPUT  FUNCTION  FILE 

In   order   to  plot  functions  the  program  requires  that  the   function 
definitions  are  constructed  as  BASIC  statements  and  are  contained  in  an 
input  function  file.  The  format  for  this  file  is: 

5010  Function  Definition  1 

5020  Function  Definition  2 

5030  Function  Definition  3 

5040  Function  Definition  4 

5050  function  Definition  5 

Each  statement  begins  on  a  new  line.  The  numbers  6010-6050  are  BASIC 
statement  numbers  and  must  occupy  columns  1-4.  The  function  defini- 
tions are  valid  BASIC  expressions  in  the  form  Y=F(X).  Each  statement 
can  contain  256  characters.  The  maximum  number  of  function  definitions 
in  one  input  function  file  is  five.  When  the  number  of  function  defini- 
tions is  less  than  five,  the  function  definition  statements  must  begin 
with  5010  and  continue  in  sequence  5020,  5030,  etc. 

An  example  of  a  valid  input  function  file  is: 

5010  Y=SIN(X> 
5020  Y=C0S(X) 
5030  Y=TAN(X) 

The  input  function  file  must  be  an  ASCII  file.  This  file  can  be 
created  with  a  word  processor,  with  EDLIN  or  with  BASIC  and  saved  as  an 
ASCII  file.  This  file  can  have  any  valid  DOS  file  name  but  must  have 
".BA5"  as  the  file  name  extension. 

4.  PROGRAM  STARTUP 

Executing  the  program  requires  that: 

a.)  The   IBM-PC   and  the  IBM  Plotter  are  connected   via   the   C0M1 

serial  port, 
b.)  An  input  function  file,  if  required,  is  available. 

A  recommended  program  startup  procedure  on  the  IBM-PC  is: 

a.)  Place  the  IBM  DOS  Diskette  in  Drive  A. 

b. )  Turn  the  IBM-PC  on. 

c.)  Respond  to  the  Date  and  Time  requests,  if  required. 

d.)  At  the  A>  prompt  type  BASICA  (Return). 

e.)  Place  the  IBMPLOT.BAS  diskette  in  Drive  A. 

f.)  Type  RUN  "IBMPLOT  (Return). 


From   this   point   on  the  user  is  directed   by   interactive   program 
menus. 


5.  MENUS 

There  are  fifteen  menus  that  appear  in  sequence  during  program 
execution.  These  menus  prompt  the  user  for  inputs  or  provide  information 
on  the  status  of  the  program.  General  information  for  the  input  menus 
i  s: 
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e.  ) 
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uts  during  typing,   prior   to   a   carriage 

h  the  delete  and  backspace  keys. 

a  carriage  return  will  restart   the   input 

rrors,  once  accepted,  can  be  changed. 

the  menu,   Key  F10  followed  by  a   carriage 

ick  advance  to  the  next  menu.   All   inputs 

d  retain  the  current  displayed  values. 

is  not  idiot-proof.   It  works   flawlessly 
tely.   Keep  the  cursor  on  the  input   line. 


Each  of  the  menus  and  associated  inputs  are  explained  in  the  follo- 
wing sections. 

5.1.  Menu  1:  Plotter  Switch  Settings 

Menu  1  provides  the  switch  settings  for  the  IBM-7371  and  7372  plot- 
ters. If  the  switches  are  not  set  correctly  the  program  will  not  run. 
The  plotter  should  be  turned  off  while  the  switches  are  set  and  then 
turned  on. 

5.2.  Menu-2:  Enter  File  Names 


Menu-2  prompts  the  user  to  indicate  if  an  input  function  file  and/or 
an  input  data  file  are  to  be  read.  Valid  inputs  are  "Y"  and  "N".  The  "Y" 
response  prompts  the  user  for  a  file  name.  When  these  files  are  read  the 
function  definitions  and/or  the  input  data  are  inserted  into  the  prog- 
ram. If  functions  are  to  be  plotted  the  function  definitions  have  to 
read  from  an  input  function  file  which  should  have  been  created  accor- 
ding to  the  instructions  in  Section  3.  The  input  data  file  is  created  by 
the  program,  if  desired,  at  the  end  of  the  input  phase. 


5.3.  Menu-3:  Enter  Plotting  Parameters 


Menu-3  prompts  the  user  for  plotting  parameter  inputs, 
parameters  are  described  as  follows: 


The  plotting 


XMIN:  X-axis  minimum  value  (must  be  an  integer). 
XMAX :  X-axis  maximum  value  (must  be  an  integer). 
YMIN:  Y-axis  minimum  value  (must  be  an  integer). 
YMAX:  Y-axis  maximum  value  (must  be  an  integer). 
XSCALE:  X-axis   division  scale  factor  used  to  convert  X-axis   values 

to  noninteger  values.   For  example:  If  the  X-axis  is  to  have 

the  range  0  to  .9  then  the  X-axis  inputs  are  0  and  9  and  the 

XSCALE  input  is  10. 
YSCALE:  Y-axis   division  scale  factor  used  to  convert  Y-axis   values 

to  noninteger  values.  (Similar  to  XSCALE) 
SIZE:    Size  of  the  square  plotting  area  in  inches.  Valid  inputs  are 

3  to  5. 
NUMBER  OF  X-AXIS  GRIDS:  The  number  of  grid  space  divisions  on  the  X- 

axis.  Grids  are  drawn.  Labels  are  printed  at  each  grid  line. 

Valid  inputs  are  1  to  10. 
NUMBER  OF  Y-AXIS  GRIDS:  The  number  of  grid  space  divisions  on  the  Y- 

axis.  Grids  are  drawn.  Labels  are  printed  at  each  grid  line. 

Valid  inputs  are  1  to  10. 
NUMBER  OF  FUNCTIONS:  The  number  of  function  definitions  in  the  input 

function  file.  Valid  inputs  are  0  to  5. 
JUMP   FUNCTION:   Determines  if  the  plotting  pen  is  down  or  up  as  the 

pen  moves  across  the  plotting  area   from  above  to  below, 

from  below  to  above,  the  plotting  area.  Valid  inputs  are 

and  "N".   "Y"  indicates  the  pen  is  up.  "N"  indicates  the 

is  down.  See  Example  1. 
NUMBER  OF  (X,Y):  The  number  of  individual  points  to  plot  in  addition 

to  the  function  definitions.  Valid  inputs  are  0  to  100. 
CONNECT  POINTS:   Determines  if  the  points  are  connected  with  a   line 

graph.  Valid  inputs  are  "Y"  and  "N". 
MARK  POINTS:   Determines  if  points  are  marked  with  "*"  when  plotted. 

Valid   inputs  are  "YH  and  "N". 


or 

m  y  ii 

pen 


5.4.  Menu-4:  Enter  Function  Number  To  Plot 

Menu-4  prompts  the  user  to  indicate  for  each  function  if  the  fun- 
ction is  to  be  plotted.  Any  combination  of  the  functions  can  be  plotted. 
Valid  inputs  are  "Y"  or  "N". 

5.5.  Menu-5:  Enter  (X,Y)  Points 


Menu-5  prompts  the  user  to  input  the  (X,Y)  points  for  plotting.  The 

points   are  shown  on  the  screen  in  sets  of  15  points.   Valid  inputs  are 

numbers  in  the  standard  integer  or  decimal  format.  Points  outside  of  the 
plotting  area  will  not  be  plotted. 


5.6.  Menu-6:  Enter  Plot  Titles. 

Menu-6  prompts  the  user  for  titles  to  be  printed  on  the  plot.  The  X- 

axis   title   is  printed  under  the  X-axis.   The  Y-axis  title  is   printed 

along  the  Y-axis.   The  Top  title  is  printed  above  the  plot.  All   titles 
are  centered.  Valid  inputs  are  any  character  except  ",". 

5.7.  Menu-7:  Enter  Plot  Legends 

Menu-7  prompts  the  user  to  input  legend  titles  for  each  function  to 
be  plotted.  The  legends  are  printed  to  the  right  of  the  plot.  Valid 
inputs  are  any  character  except  ",".  The  maximum  number  of  characters  is 
12.   . 

5.8.  Menu-8:  Enter  X-Axis  Labels 


Menu-8   prompts   the  user  to  enter  X-axis   labels.   The   labels 
centered  on  the  grid  lines.  Valid  inputs  are  any  character  except  " 


are 


5.9.  Menu-9:  Enter  Y-Axis  Labels 


Menu-9   prompts   the   user  to  enter  Y-axis  labels.   The   labels 
centered  on  the  grid  lines.  Valid  inputs  are  any  character  except  M 


are 


5.10.  Menu-10:  Edit/Save  Input  Data 

Menu-10  prompts  the  user  to  indicate  if  the  input  data  is  to  be 
edited  and/or  saved.  Valid  inputs  are  "Y"  and  "N".  This  is  the  end  of 
the  input  phase.  If  the  input  data  is  to  be  edited  for  corrections  the 
program  returns  to  Menu-2.  If  the  data  is  to  be  saved  in  a  file  on  a 
diskette  then  the  user  is  prompted  for  a  file  name. 

5.  11.  Menu-11:  Begin  Plot 

Menu-11  informs  the  user  that  the  plotter  is  drawing  the  plotting 
area  with  the  specified  X-axis  and  Y-axis  grids.  No  input  is  required. 

5.12.  Menu-12:  Enter  Point  Plot  Parameters 


Menu-12  prompts  the  user  for  point  plotting  inputs  for  pen  selection 
and  line  type.  Valid  inputs  for  pen  selection  depend  on  the  number  of 
pen  positions  on  the  plotter  which  are  1  to  6  for  the  IBM-7372  plotter 
and  1  to  2  for  the  I BM-737 1  plotter.  Valid  inputs  for  line  type  are 
included  in  the  menu.  Responding  with  the  carriage  return  provides  a 
solid  line.  All  other  responses  are  either  dots  or  dashes.  The  plotter 
will  stop  and  wait  for  these  inputs. 


5.13.  Menu-13:  Enter  Function  Plot  Parameters 

Menu-13  prompts  the  user  for  ■function  plotting  inputs  for  pen  selec- 
tion and  line  type.  Valid  inputs  for  pen  selection  depend  on  the  number 
of  pen  positions  on  the  plotter  which  are  1  to  6  for  the  IBM-7372 
plotter  and  1  to  2  for  the  IBM-7371  plotter.  Valid  inputs  for  line  type 
are  included  in  the  menu.  Responding  with  the  carriage  return  provides  a 
solid  line.  All  other  responses  are  either  dots  or  dashes.  The  plotter 
will  stop  and  wait  for  these  inputs  prior  to  plotting  each  function. 

5.14.  Menu-14:  Begin  Printing 

Menu-14  informs  the  user  that  function  and  point  plotting  is  com- 
plete and  that  titles  and  labels  are  now  being  printed. 

5.15.  Menu-15:  Restart/End  Program 


Menu-15  prompts  the  user  to  either  restart  or  end  the  program.  Valid 


inputs  are 


or 


N' 


If  the  program  is  restarted  it  returns  to  Menu-2 


and  all  inputs  and  functions  remain  in  effect  until  changed.  If  the 
program  is  not  restarted  it  terminates  and  computer  control  is  returned 
to  DOS. 


6.  EXAMPLES 

Two  examples  are  provided  to  illustrate  program  application. 
6.  1 .  Example  1 

This  example  plots  the  trigonometric  functions 

Y  =  Sin  (X) 

Y  =  Cos  (X) 

Y  =  Tan  (X) 

No  points  are  plotted.  The  input  function  file  and  input  data  file  for 
this  example  are  on  the  IBMPLOT.BAS  diskette  in  files  1BMFEX1.BAS  and 
IBMDEX1.  A  review  of  the  data  is  presented  in  Table  1  and  the  plotter 
output  is  contained  in  Figure  1. 

To  specifically  illustrate  the  jump  function  input  this  example  was 
run  to  plot  only  the  function  Y  ■  Tan  (X)  with  the  jump  function  input 
set  to  "Y"  and  then  set  to  "Nn.  The  plotter  output  is  presented  in 
Figures  2  and  3.  The  difference  in  the  plotter  output  is  the  pen-up  and 
pen-down  feature  as  the  pen  moves  across  the  discontinuities  for  Y. 

6.2.  Example  2 

This  example  plots  the  eight  (X,Y)  points 

(X,Y)  =  (2, .94),  (2. 5, .78),  (3, .65),  (3. 5, .55) 
(4, .52),  (4. 5, .49),  (5, .44),  (5.5, .41) 

and  the  functions 


Y    =    A*X    +    B 

A    =-    .19 

B    =    1.35 

Y    =    B*AAX 

A    =      .76 

B    =    1.65 

Y    =    B*XAA 

A    =-    .83 

B    =    1.65 

Y    =    X/  (A    +    B#X) 

A    =-3.35 

B    =    2.83 

The  coefficients  in  the  functions  were  determined  from  the  eight 
(X,Y)  points  by  least  squares  with  the  constraint  that  (X,Y)  =  (1.83, 
1.0).  The  input  function  file  and  input  data  file  for  this  example  are 
on  the  IBMPLOT.BAS  diskette  in  files  IBMFEX2.BAS  and  IBMDEX2.  A  review 
of  the  data  is  presented  in  Table  2  and  the  plotter  output  is  contained 
in  Figure  4.  This  example  compares  graphically  the  derived  functions 
with  the  original  points  and  illustrates  the  utility  of  plotting  a  line 
graph  along  with  the  function  definitions. 


7.  APPLICATION  EXTENSIONS 


The  BASIC  program  is  included  as  Appendix  A.  The  program  is 
straight  forward  and  each  program  menu  section  is  clearly  marked.  A  user 
familiar  with  BASIC  can  extend  this  program  in  many  ways.  The  plotting 
procedures  are  the  heart  of  the  program  and  many  other  applications  can 
be  built  around  them.  It  should  not  be  hard,  for  instance,  to  plot  and 
label  sequences  of  line  graphs,  plot  and  label  bar  graphs,  perform 
specific  least  square  calculations  and  increase  the  number  of  functions. 


INPUT  FUNCTION  FILE  NAME: 

IBMFEX1.BAS 

X-AXIS  TITLE:  X 

(RADIANS) 

INPUT  DATA  FILE  NAME: 

IBMDEX1 

Y-AXIS  TITLE:  Y= 

F(X) 

XMIN:    0 

TOP  TITLE 

:  TRIG 

FUNCTIONS 

XMAX:   10 

LEGEND-1: 

SIN  (X) 

YMIN:  -  2 

LEGEND-2: 

COS  (X) 

YMAX:    2 

LEGEND-3: 

TAN  (X) 

XSCALE:  1 

1  X-AXIS 

LABEL: 

0.0 

YSCALE:  1 

2  X-AXIS 

LABEL: 

2.0 

SIZE:   3.5 

3  X-AXIS 

LABEL: 

4.0 

NUMBER  OF  X-AXIS  GRIDS:  5 

4  X-AXIS 

LABEL: 

6.0 

NUMBER  OF  Y-AXIS  GRIDS:  4 

5  X-AXIS 

LABEL: 

8.0 

JUMP  FUNCTION:    Y 

1  Y-AXIS 

LABEL: 

-2.0 

NUMBER  OF  (X,Y):  0 

2  Y-AXIS 

LABEL: 

-1.0 

CONNECT  POINTS:   N 

3  Y-AXIS 

LABEL: 

0.0 

MARK  POINTS:      N 

4  Y-AXIS 

LABEL: 

1.0 

PLOT  FUNCTION  1:  Y 

5  Y-AXIS 

LABEL: 

2.0 

PLOT  FUNCTION  2:  Y 

FUNCTION 

1  LINE 

TYPE: 

2 

PLOT  FUNCTION  3:  Y 

FUNCTION 

2  LINE 

TYPE: 

3 

FUNCTION 

3  LINE 

TYPE: 

4 

Table  1:  Input  Data  For  Example  1 


TRIG    FUNCTIONS 


2.  0 


1.0 


/'N 

X 

u. 
II 

>- 


0.  0 


-1.  0 


-2. 


SIN_ 

qo  _ 

COS_ 

_oo 

TAN 

CXJ 

0.0       2.0       4.0       6.0 

X  (RADIANS) 


8.  0 


10.0 


Figure  1:  Plotter  Output  for    Example  1 


TRIG    FUNCTIONS 


X 

II 

>- 


2.  0 


1.0 


0.0 


-1.0 


-2.0 


1 

-1 

1 

1 

I 

/ 

/ 

/ 

/ 

/ 

/ 

1 

/ 

/ 

/ 

/ 

/ 
/ 

/ 
/ 

/ 
/ 

1 

1 

/ 

/ 

/ 

1 

1 

/ 

/ 

/ 

t 

1 

i 
1 

/ 

/ 

1 

/ 

/ 

1 

/ 

1 

/ 

/ 

/ 

/ 

/ 

/ 

1 

/ 
1 

1 

' 

TAN  CX) 


0.0      2.0      4.0      6.0      B.  0     10.0 

X  (RADIANS) 


Figure  2:  Plotter  Output  for  Y=Tan  (X)  with  Jump  Function  »  Y 


TRIG    FUNCTIONS 


X 


2.0 


1.0 


0.0 


-1.0 


-2.  0 

0. 


i  | 

/ 

J  ! 

1 

/ 

/ 
/     i 

1 

/ 

/ 

1 

/ 

/     1 

I 

/ 

/ 

/      1 

1 

/ 

/ 

t       1 

1 

/ 

/ 

1 

i 

/          1 

/ 

1 
1 
1 

1 

i 

i    / 
/ 
i   / 

i 

/ 
/ 
/ 

1 

1 

/ 

1 

/ 

j 

i  / 

i  / 

TAN  (X) 


2.  O      4.  0      6.  0      8.0 

X  (RADIANS) 


10.  0 


Figure  3:  Plotter  Output  for  Y=Tan  (X)  with  Jump  Function  =  N 
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INPUT  FUNCTION  FILE  NAME: 

IBMFEX2.BAS 

X- 

-AXIS  TITLE:  TIME  LATE  (HOURS) 

INPUT  DATA  FILE  NAME: 

IBMDEX2 

Y- 

■AXIS  TITLE:  P(DETECTION) 

XMIN:    2 

TOP  TITLE:  LEAST  SQUARE  COMPARISON 

XMAX:   11 

LEGEND-1: 

Y=A*X+B 

YMIN:    0 

LEGEND-2, 

Y  =  B*A' 

"X 

YMAX:    1 

LEGEND-3: 

Y»B*X' 

NA 

XSCALE:  2 

LEGEND-4 

Y*X/(A+B*X) 

YSCALE:  1 

1 

X-AXIS 

LABEL: 

2.0 

SIZE:   3.5 

2 

X-AXIS 

LABEL: 

2.5 

NUMBER  OF  X-AXIS  GRIDS: 

7 

3 

X-AXIS 

LABEL: 

3.0 

NUMBER  OF  Y-AXIS  GRIDS: 

5 

4 

X-AXIS 

LABEL: 

3.5 

JUMP  FUNCTION:    Y 

5 

X-AXIS 

LABEL: 

4.0 

NUMBER  OF  (X,Y) :  S 

6 

X-AXIS 

LABEL: 

4.5 

CONNECT  POINTS:   Y 

7 

X-AXIS 

LABEL: 

5.0 

MARK  POINTS:      Y 

8 

X-AXIS 

LABEL: 

5.5 

PLOT  FUNCTION  1:  Y 

1 

Y-AXIS 

LABEL: 

0.0 

PLOT  FUNCTION  2:  Y 

2 

Y-AXIS 

LABEL: 

0.2 

PLOT  FUNCTION  3:  Y 

3 

Y-AXIS 

LABEL: 

0.4 

PLOT  FUNCTION  4:  Y 

4 

Y-AXIS 

LABEL: 

0.6 

FUNCTION  1  LINE  TYPE: 

2 

5 

Y-AXIS 

LABEL: 

0.8 

FUNCTION  2  LINE  TYPE: 

3 

6 

Y-AXIS 

LABEL: 

1.0 

FUNCTION  3  LINE  TYPE: 

4 

(X,Y)=(2, 

.94) 

(2.5,.- 

78), (3, 

.65), (3. 5, .55) 

FUNCTION  4  LINE  TYPE: 

5 

<4, 

.52) 

,(4.5,.< 

19) , (5, 

.44) , (5. 5, .41) 

Table  2:  Input  Data  For  Example  2 

LEAST    SQUARE    COMPARISON 


2 
O 


U 

LU 

I- 

LU 

D 
^/ 

CL 


1.  0 


o.  g 


o.  a 


0.  7 


0.  6 


0.  5 


0.  4 


Y-X/ CA*B«X) 


2.  0    2.  5    3.  0    3.  5    4.  0    4.  5    5.  0 

TIME  LATE  (HOURS) 


5.  5 


Figure  4:  Plotter  Output  for  Example  2 
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8.  APPENDIX 


8.1.  APPENDIX  A:  IBM-PC  BASICA  Program 


10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 


KEY  OFF:  CLS:  OPTION  BASE  1:  DIM  XP  ( 100) , YP ( 100) 

MP$="N":  LPS="NM:  JUMPt="Y" 

XSCALE=1:  YSCALE=1:  XMIN=0:  XMAX=1:  YMIN=0: 

FOR  1=1  TO  10:  KEY  I,  M":  NEXT  I 


YMAX=1:  SIZEM:  XB=1:  YG  =  1 


MENU-1 


GQSUB 

LOCATE 

LOCATE 

LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
Af=INKE 
OPEN  "C 
PRINT  # 


3300 

3,24: 


5 

6 

8 
10 
12 
13 
15 
17 
18 
20 
23 
Yf : 
OM1 


25: 
27: 
15: 
15: 
15: 
15: 
15: 
15: 
15: 
15: 
26: 


B4 
I 


B3 
0 


B2 
I 


Bl1 
O1 


PRINT  "MENU-1:  PLOTTER  SWITCH  SETTINBS" 

PRINT  "PROFESSOR  A.  ANDRUS,  CODE  55AS" 

PRINT  "NAVAL  POSTGRADUATE  SCHOOL" 

PRINT  "TURN  PLOTTER  OFF.  SET  SWITCHES  AS  FOLLOWS:  (I=ON,  0=OFF) 

PRINT  "HP-7470-A  and  IBM-7371" 

PRINT  "SWITCH:   S2   SI    Y   US 

PRINT  "SET:       I    I    0    I 

PRINT  "HP-7475-A  and  IBM-7372" 

PRINT  "SWITCH:   S2   SI    Y   US 

PRINT  "SET:       I    I    0    I 

PRINT  "TURN  PLOTTER  ON." 

PRINT  "..  PRESS  ";CHR$(17) ;CHR$(196) ;CHR$(217) ; 

IF  A$OCHR$(13)  THEN  190  ELSE  CLS 

9600,S,7,1,RS,CS65535,DS,CD"  AS  »1 


A3/A4 
A4 


B4 
I 


B3 
0 


B2 
I 


Bl" 

0" 

TO  CONTINUE 


1,"IN;SP  1;PA  500,500;" 


•MENU-2 


60SUB 
LOCATE 
LOCATE 
IF  A$=" 
LOCATE 
IF  FF$< 
LOCATE 
IF  A$=" 
LOCATE 
IF  DF$  = 
INPUT#2 
FOR  1=1 
INPUT#2 
INPUT#2 
INPUT#2 
FOR  1=1 
FOR  1=1 
FOR  1=1 
FOR  1=1 
CL0SE#2 


3300 

3,27: 

10,20: 

Y"  OR 

11,20: 

\  II  II 

13,20: 
Y"  OR 
14,20: 


PRINT  "MENU-2:  ENTER  FILE  NAMES" 

INPUT  "*  INPUT  FUNCTION  FILE  NAME  Y/N 

A$="y"  THEN  270  ELSE  290 

INPUT  "  FILE  NAME  = 

THEN  CHAIN  MER6E  FF$,  290, ALL 

INPUT  "*  INPUT  DATA  FILE  NAME      Y/N 

A*="y"  THEN  310  ELSE  460 

INPUT  "  FILE  NAME  = 

THEN  460  ELSE  OPEN  DF$  FOR  INPUT  AS  2 


;A$ 
,FF$ 
;A$ 
,DF$ 


, XMIN,  XMAX,YMIN,YMAX,XSCALE,YSCALE,SIZE,XG,Y6,IP,NF,NXL,NYL 

TO  IP:  INPUT#2,XP(I) ,YP(I) :  NEXT  I 

,LP$:  INPUT#2,MP$ 

,XLABEL$:  INPUT#2 , YLABELI 

,TOP$:  INPUT#2,JUMP$ 

TO  NF:  INPUT#2,KF$(I):  NEXT  I 

TO  NXL:  INPUT#2,XL*(I) :  NEXT  I 

TO  NYL:  INPUTM2  ,  YL$  ( I ) :  NEXT  I 

TO  NF:  INPUT#2,L$(I) :   NEXT  I 

:  GOTO  460 


•MENU-3 


KEY( 10) 

KEY(9) 

KEY(9) 

GOSUB 

LOCATE 

LOCATE 

LOCATE 


OFF 
OFF 
ON 
3300 
3,25 
7,15 
8,15 


RETURN  960:    'F-TRAP  SUBROUTINE 

KEY  (10)  OFF:  RETURN  460 

ON  KEY(9)  GOSUB  450:  KEY(10)  ON:  ON  KEYU0)  GOSUB  440 

GOSUB  3600:  GOSUB  3560 

PRINT  "MENU-3:  ENTER  PLOT  PARAMETERS" 

PRINT  "XMIN   =";XMIN 


PRINT  "XMAX 


XMAX 
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510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 


LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

IF  XSCALE 

LOCATE  12 

LOCATE  12 

IF  YSCALE 

LOCATE  13 

LOCATE 

LOCATE 

LOCATE 

IF  X6< 


LOCATE  15 
LOCATE  15 
IF  Y6<=0 
LOCATE  16 
LOCATE  16 
LOCATE  17 
LOCATE  17 
LOCATE  18 
LOCATE  18 
IF  IP>100 
LOCATE  19 
LOCATE  19 
LOCATE  20 
LOCATE  20 
IF  SIZE*<>"" 
IF  SIZE<3 
X0=500*(10.3 


15 

15 

15 

15 

15 

15 

15 

15 

15 

15 

15 

15 

13 

50 

13 

50 

13 

50 

13 

50 

13 

50 

=  0 

13: 

50: 

=  0 

13: 

50: 

13: 

50: 


13: 
50: 

13 

50 
13 
50 
13 
50 

13: 

50: 
13: 
50: 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
PRINT 
INPUT 
PRINT 
INPUT 
PRINT 
INPUT 
PRINT 
INPUT 
THEN 


"  Y  H I  N   = 

"YMAX  = 
"XSCALE= 
"YSCALE= 
"SIZE  = 
"NUMBER 


";YMIN 
" ;YMAX 
";XSCALE 
"; YSCALE 
" ;  S I  2  E 
OF  X-AXIS 


NUMBER  OF  Y-AXIS 
NUMBER  OF  FUNCTIONS 
JUMP  FUNCTION  Y/N 
NUMBER  OF  (X,Y)  TO 
CONNECT  POINTS  Y/N 
MARK  POINTS  Y/N 
#" 

IF 


GRIDS 
GRIDS 


PLOT 


=  " ;  X  G 
=  "  ;YG 
=  ";NF 
=  ";JUMP$ 
= " ;  I P 
*  "  ;LP$ 
=  ";MP$ 


XMINS: 
H#" 

XMAXS: 
H#" 

YMIN$: 
"*■ 

YMAX$: 
"*" 

XSCALES 
XSCALE=1 


PRINT  "*" 
INPUT  YSCALE*: 
THEN  YSCALE=1 
PRINT  "*" 
INPUT  SIZE* 
PRINT  "*" 
INPUT  XG$: 
THEN  XG=1  ELSE 
PRINT  "#" 
INPUT  YG$: 
THEN  YG=1  ELSE 


XMIN$<>""  THEN  XMIN=VAL(XMIN$) 
IF  XMAX$<>""  THEN  XMAX=VAL ( XMAX$ ) 
IF  YMINSO""  THEN  YMIN  =  VAL  (  YMI N$ ) 
IF  YMAX$<>""  THEN  YMAX  =  VAL  ( YMAXS) 
IF  XSCALE*<>""  THEN  XSCALE  =  VAL  (  XSCALE$ ) 

IF  YSCALE$<>""  THEN  YSCALE=VAL < YSCALE* ) 


IF 

IF 

IF 
IF 


XG$<>"M 
X6>=10 

YG$<>"" 
YG>=10 


THEN 
THEN 

THEN 
THEN 


XG=VAL(XG$) 

XG=  1  0 

YG=VAL(YG$) 
YG=10 


PRINT 
INPUT 
PRINT 
INPUT 
PRINT 
INPUT 
THEN 


NF$: 
"*" 
T$: 
"*" 
IPS: 
IP=100 


IF  NF$<>""  THEN  NF=VAL(NF$) 
IF  T$<>""   THEN  JUMP$=T$ 
IF  IP$<>""  THEN  IP=VAL(IP$) 


PRINT  "*M 
INPUT  A$: 
PRINT  "*" 
INPUT  A$: 
THEN  SIZE=VAL(SIZE$) 
THEN  SIZE=3  ELSE  IF  SIZE>5  THE 
SIZE) -157:  Y0=500*(7.65-SIZE)+188 


IF  A$<>""   THEN  LP$=A$ 
IF  A$<>""   THEN  MP$=A$ 


N  SIZE=5 
:  Z=SIZE*1 
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990  ' MENU-4 

1000  IF  NF  =  0  THEN   1140  ELSE  1030 

1010  KEY<10>  OFF:  RETURN  1140:  'F-TRAP  SUBROUTINE 

1020  KEY<9)   OFF:  KEY  (10)  OFF:  RETURN  1030 

1030  KEY  (9)   ON:  ON  KEY(9)  GQSUB  1020:  KEYU0)  ON:  ON  KEY  ( 10)  GOSUB  1010 

1040  GOSUB   3300:  GOSUB  3600:  GOSUB  3560 

1050  LOCATE  3,21:   PRINT  "MENU-4:  ENTER  FUNCTION  NUMBER  TO  PLOT" 

1060  FOR  1=1  TO  NF 

1070  LOCATE  10+1,20:  PRINT  "PLOT  FUNCTION"; I ; "  Y/N  :  ";KFf(D 

1080  NEXT  I 

1090  FOR  1=1  TO  NF 

1100  LOCATE  10+1,18:  PRINT  "*" 

1110  LOCATE  10+1,50:  INPUT  T$:  IF  T*<>""  THEN  KF$(I)=T$ 

1120  NEXT  I 

1130  ' MENU-5 

1140  IF  IP=0  THEN   1450  ELSE  1170 

1150  KEYU0)   OFF:  RETURN  1450:  'F-TRAP  SUBROUTINE 

1160  KEY(9)    OFF:  KEYU0)  OFF:  RETURN  1170 

1170  KEY  (9)    ON:  ON  KEY(9)  GOSUB  1160:  KEYU0)  ON:  ON  KEYU0)  GOSUB  1150 

1180  GOSUB   3300:  GOSUB  3600:  GOSUB  3560 

1190  FOR  J=l  TO  IP  STEP  15 

1200  LOCATE  3,27:  PRINT  "MENU-5:  ENTER  (X,Y)  POINTS" 

1210  IF  J  +  14HP    THEN  JE=IP  ELSE  JE  =  J  +  14 

1220  K=0 

1230  FOR  1=J  TO  JE 

1240  K=K+1 

1250  LOCATE  5+K,3:   PRINT  I 

1260  LOCATE  5+K,7:   PRINT  "X=";XP(D 

1270  LOCATE  5+K,25:  PRINT  "Y=";YP(I) 

1280  NEXT  I 

1290  K=0 

1300  FOR  I=J  TO  JE 

1310  K=K+1 

1320  LOCATE  5+K,3:          PRINT  "*" 

1330  LOCATE  5+K,43:         INPUT  "X=";XP$ 

1340  IF  XP$="P"  OR  XP$="p"  THEN  1400 

1350  LOCATE  5+K,61:         INPUT  "Y=";YP$ 

1360  IF  YP$="P"  OR  YP$="p"  THEN  1400 

1370  IF  XP$Ou"            THEN  XP  ( I )  =VAL  ( XP$ ) 

1380  IF  YP$<>""            THEN  YP  ( I ) =VAL  ( YP$ ) 

1390  NEXT  I 

1400  NEXT  J 

1410  GOTO  1450 
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1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 


KEY  ( 10)  OFF:  RETURN  1580:  'F-TRAP  SUBROUTINE 

KEY<9)   OFF:  KEY(IB)  OFF:  RETURN  1450 

KEY(9)    ON:  ON  KEY(9)  GOSUB  1440:  KEY  ( 10)  ON: 

GOSUB   3300:  GOSUB  3600:  GOSUB  3560 

LOCATE  3,27:  PRINT  "MENU-6:  ENTER  PLOT 

LOCATE  10,20:  PRINT  "X-AXIS  TITLE 

LOCATE  11,20:  PRINT  "Y-AXIS  TITLE 

LOCATE  12,20:  PRINT  "TOP  OF  GRAPH  TITLE 

LOCATE  14,18:  INPUT  "*  NEW  X-AXIS  TITLE 

IF  T$<>""  THEN  XLABEL$=T$ 

LOCATE  15,18:  INPUT  "*  NEW  Y-AXIS  TITLE    -  ",T$ 

IF  T$<>""  THEN  YLABELt=T$ 

LOCATE  16,18:  INPUT  "*  NEW  TOP  TITLE      =  ",T$ 

IF  T$<>""  THEN  TOP$=T$ 


■MENU-6 


ON    KEYU0)    GOSUB    1430 


TITLES" 
=    ";XLABEL$ 
=    ";YLABEL$ 
=    ";TOP$ 
=    \T$ 


MENU-7 


IF  NF=0 
KEY(IB)  OFF 
KEY(9>  OFF 
KEY  (9)  ON 
GOSUB  3300 
LOCATE  3,27 
K  =  7 
FOR  1=1  TO  NF 

K  =  K  +  1 

LOCATE  K, 15 
NEXT  I 
K  =  7 
FOR  1=1  TO  NF 

K=K  +  1 

LOCATE  K, 13 

LOCATE  K,45 
NEXT  I 


THEN  1760  ELSE  1610 

RETURN  176B:  'F-TRAP  SUBROUTINE 

KEY(IB)  OFF:  RETURN  161B 

ON  KEY(9)  GOSUB  16BB:  KEY(IB)  ON:  ON  KEY  (10)  GOSUB  1590 

GOSUB  3600:  GOSUB  356B 

PRINT  "MENU-7:  ENTER  PLOT  LEGENDS" 


PRINT  "LEGEND-";  I;"  =    ";L$(D 


:  PRINT  "*" 

:  INPUT  "NEW  LEGEND  =  ",T$:  IF  T$<>""  THEN  L$(I)=T$ 


KEY (9) 
GOSUB 
KEYU0 
KEY(9) 
LOCATE  3 
IF  XG=0 
FOR  1=1 
FOR  1=1 
LOCATE 
LOCATE 
NEXT  I 
FOR  1=1 

XL(I)= 
NEXT  I 


MENU-8 

ON:  ON  KEY(9)  GOSUB  1790:  KEY(IB)  ON:  ON  KEY(IB)  GOSUB  1780 

300:  GOSUB  3600:  GOSUB  3560:  GOTO  1800 

OFF:  RETURN  1870:  'F-TRAP  SUBROUTINE 

OFF:  KEY  (10)  OFF:  RETURN  1760 

,26:  PRINT  "MENU-8:  ENTER  X-AXIS  LABELS" 
THEN  NXL=2  ELSE  NXL=X6+1 

TO  NXL:  LOCATE  8+1,10:  PRINT  I ; "X-AXIS  LABEL  =  ";XL$U):  NEXT  I 

TO  NXL 
8+1,8:   PRINT  "*" 
8+1,45:  INPUT  "NEW  LABEL  =",T$:  IF  T$<>""  THEN  XL$(I)=T$ 


TO  NXL 

LEN(XLfd)):  IF  XL(I)>XLMAX  THEN  XLMAX  =  XL(I) 
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1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 


KEY  (9)    ON:  ON  KEY(9)  GOSUB  1940:  KEY  <  10 
GOSUB   3300:  GOSUB  3600:  GOSUB  3560:  GOTO 
KEYU0)  OFF:  RETURN  2020:  'F-TRAP  SUBROUT 
KEY<9)   OFF:  KEYU0)  OFF:  RETURN  1910 
LOCATE  3,26:  PRINT  "MENU-9:  ENTER  Y-AXIS 
IF  YG=0       THEN  NYL=2  ELSE  NYL=YG+1 
FOR  1=1  TO  NYL:  LOCATE  8+1,10:  PRINT  I;"Y 
FOR  1=1  TO  NYL 

PRINT  "*" 

INPUT 


-- MENU-9 

)  ON:  ON  KEY  ( 10)  GOSUB  1930 

1950 
INE 

LABELS" 

-AXIS  LABEL  =";YL$(I):  NEXT  I 


LOCATE  8+1,8: 
LOCATE  8+1,45: 

NEXT  I 

FOR  1=1  TO  NYL 

YL(I)=LEN(YL$(D): 

NEXT  I 


NEW  LABEL  =",T$:  IF  T$<>""  THEN  YL$(I)=T$ 


IF  YL(I)>YLMAX  THEN  YLMAX=YL(I) 


KEY(9 

KEY(9 

LOCAT 

LOCAT 

IF  A$ 

LOCAT 

IF  A$ 

LOCAT 

OPEN 

PRINT 

FOR  I 

PRINT 

PRINT 

PRINT 

FOR  I 

FOR  I 

FOR  I 

FOR  I 

CLOSE 


)     ON: 
)    OFF: 
E   3,25: 
E  12,20: 
=  "Y"  OR 
E  14,20: 
="YU  OR 
E  15,20: 
DF*  FOR 
«2,XMIN, 
=1  TO  IP 
#2, LP*: 
»2,XLABE 
#2,T0P$: 
=1  TO  NF 
=1  TO  NX 
=1  TO  NY 
=1  TO  NF 
#2 


ON  KEY 
RETURN 
PRINT 
INPUT 
A$="y" 
INPUT 
A$="y" 
INPUT 
OUTPUT 
XMAX,Y 
PRI 
PRI 
PRI 
PRI 
PRI 
PRI 
PRI 
PRI 


L$: 


L: 
L: 


(9)  GOSUB  2070:  KEYd 

2060:  'F-TRAP  SUBROU 
"MENU-10:  EDIT/SAVE  I 
"*  EDIT  INPUT  DATA   Y 

THEN  230 
"*  SAVE  INPUT  DATA   Y 

THEN  2130  ELSE  2260 
FILE  NAME 

AS  2 
MIN,YMAX,XSCALE,YSCAL 
NT#2,XP(I) ,YP(I):  NEX 
NT#2,MP$ 
NT«2,YLABEL$ 
NT#2,JUMP$ 
NT#2,KF$(I) 
NT#2,XL$(I) 
NT#2,YL$(I) 
NT#2,L$(I): 


MENU-10 

0)  OFF:  GOSUB  3300:  GOTO  2080 

TINE 

NPUT  DATA" 

/N   ";A$ 

/N   ";A$ 

*   "  ,DF$:  IF  DF$»""  THEN  2260 

E,SIZE,X6,YG,IP,NF,NXL,NYL 
T  I 


NEXT  I 

NEXT  I 

NEXT  I 

NEXT  I 


IDS" 


GOSUB  3300 

LOCATE   3,30:  PRINT  "MENU-11:  BEGIN  PLOT 

LOCATE  12,28:  PRINT  "PLOTTING  AXES  AND  GR 

PRINT#1,"IP",X0,Y0,X0  +  Z,Y0  +  Z,";" 

PRINT#1,"SCM,XMIN,XMAX,YMIN,YMAX,"; " 

PRINTI1,"PA",XMIN,YMIN,";PD;" 

PRINT#1,"PA",XMIN,YMAX,XMAX,YMAX,XMAX,YMIN,XMIN,YMIN,";PU;" 

PRINT#1,"IW",X0,Y0,X0+Z,Y0+Z," ;" 

PRINT#1,MTL  100,0;" 

DXG=(XMAX-XMIN)/XG 

FOR    1=1    TO    X6-1:    PRINT#1 , "PA" , HDX6  +  XMIN, 

DY6=(YMAX-YMIN)/YG 

FOR  1  =  1  TO  YG-1:  PRINT  #1 ,  "PA" , XMIN, I *DYG 


MENU-11 


YMIN,";PD;XT;PU; ":  NEXT  I 
+YMIN,";PD;YT;PU;":  NEXT  I 
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2390  ' MENU- 12 

2402  IF  IP=0  THEN  2560 

2410  60SUB  3300 

2420  LOCATE  3,22:  PRINT  "MENU-12:  ENTER  POINT  PLOT  PARAMETERS" 

2430  GOSUB  3390 

2440  PRINTil,  "SI  .38, .54;" 

2450  IF  (MP$="Y"  OR  MP$="y")  AND  (LP$="YH  OR  LP$="y")  THEN  2490 

2460  IF  (MP$="Y"  OR  MP$="y")  AND  (LP$="N"  OR  LP$="n")  THEN  2510 

2470  IF  (MP*="N"  OR  MP$="n")  AND  (LPS="Y"  OR  LP$="y")  THEN  2530 

2480  GOTO  2560 

2490  FOR  1  =  1  TO  IP:  PRINTil,  "SM#;  PA" , XP ( I ) «XSCALE , YP ( I ) *YSCALE , " ; PD;  " :  NEXT  I 

2500  PRINTttl ,   "SM;PU;":  GOTO  2560 

2510  FOR  1  =  1  TO  IP:  PRINTil,  "SM*; PA" , XP ( I ) *XSCALE , YP ( I ) #YSCALE, " ; " :  NEXT  I 

2520  PRINTil,   "SM;PU;":  60T0  2560 

2530  FOR  1=1  TO  IP:  PRINTil,  "PA" , XP ( I ) #XSCALE , YP ( I ) *YSCALE , " ; PD; " :  NEXT  I 

2540  PRINTil,   "SM;PU;n:  GOTO  2560 

2550   MENU- 13 

2560  PRINTil,  "SI;":  KF=0 

2570  FOR  INF=1  TO  NF 

2580    IF  KF$(INF)="N"  OR  KF$(INF)="n"  THEN  2890  ELSE  KF«KF+1 

2590    GOSUB  3300 

2600    LOCATE  3,20:   PRINT  "MENU-13:  ENTER  FUNCTION  PLOT  PARAMETERS" 

2610   LOCATE  6,27:   PRINT  "PLOTTING  FUNCTION  ";INF 

2620    GOSUB  3390 

2630    X=XMIN/XSCALE 

2640    ON  INF  GOSUB  5010,5020,5030,5040,5050 

2650    Y=Y*YSCALE:  X=X*XSCALE 

2660    IF  JUMP$="N"  OR  JUMP$="n"  THEN  2680 

2670    IF  Y<YMIN  OR  Y>YMAX  THEN  YC$="YES"  ELSE  YC$="NO" 

2680    PRINT  il,"PA",X,Y,";PD;" 

2690    FOR  XT  =  XMIN  TO  XMAX  STEP  ( XMAX-XMIN) /  ( II 10) 

2700      X=XT/XSCALE 

2710      ON  INF  GOSUB  5010,5020,5030,5040,5050 

2720     Y=Y*YSCALE:  X=X#XSCALE 

2730      IF  JUMPS="N"  OR  JUMP$="n"  THEN  PRINTil,  "PA":  GOTO  2770 

2740      IF  Y<YMIN  OR  Y>YMAX  THEN  YC1$="YES"  ELSE  YC1$="N0" 

2750      IF  YC$="YES"  AND  YCU="YES"  THEN  PRI  NTil  ,  "PU;  PA"  ELSE  PRINTil  ,  "PD;  PA" 

2760      YC$=YC1$ 

2770     PRINT  il, USING  "iiii. iiii" ; X  ,  Y 

2780     PRINT  il,";" 

2790    NEXT  XT 

2800    IF  L$(INF)="M  THEN  2880 

2810   PRINTil,"IW",X0,Y0,X0+Z+1000,Y0+Z,";" 

2820    PRINTil, "SC;SI  .  13  , .  16; PU; PA" , X0  +  Z+50, Y0  +  Z-300*KF , " ; " 

2830   PRINTil , "LB" ;LS ( INF) ,CHR$(3) 

2840    PRINTil,"PA",X0+Z+50,Y0+Z-300*KF-35,";" 

2850    PRINTil,"PD;PA",X0+Z+750,Y0+Z-300*KF-35,";" 

2860    PRINTil, "PU; SC" , XMIN , XMAX, YMIN , YMAX  , " ; SI  .19, .27;" 

2870    PRINT  il,"IW",X0,Y0,X0+Z,Y0+Z,"; " 

2880    PRINTil,  "PU;" 

2890  NEXT  INF 

2900  PRINT  il , "PU; IP; I W; SC; SP  1;" 
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2910  '--- -MENU- 14 

2920  GOSUB    3300 

2930  LOCATE   3,28:  PRINT  "MENU-14:  BEGIN  PRINTING" 

2940  LOCATE  12,27:  PRINT  "PRINTING  LABELS  AND  TITLES" 

2950  LX=LEN(XLABEL$) 

2960  NX=(Z#9/1000-LX)/2 

2970  PRINTil,  "SI  .13, .16;" 

2980  FOR  1=1  TO  NXL 

2990    IF  XL$(I)=""  THEN  3020 

3000    PRINT#1,"PA",X0+Z/(NXL-1)*(I-1) ,Y0-100,";" 

3010   PRINT#1,"CPH,-XL(I)/2,0,";LB";XL$(I) ,CHR$(3) 

3020  NEXT  I 

3030  IF  XLABEL$=""  THEN  3070 

3040  PRINTil,  "SI  .  19, .27;" 

3050  IF  XLMAX=0  THEN  YT=100  ELSE  YT=350 

3060  PRINT  il,"PA",X0,Y0-YT,";CP",NX,0,";LB";XLABEL*,CHR$(3) 

3070  LY=LEN(YLABEL$) 

3080  NY=(Z*9/1000-LY)/2 

3090  PRINT*!,  "SI  .13,.  16;" 

3100  FOR  1=1  TO  NYL 

3110  IF  YL$(I)=""  THEN  3150 

3120    IF  1=1  THEN  YT=0  ELSE  YT=-.2 

3130    PRINT  #1,"PA",X0-20,Y0+Z/(NYL-1)*(I-1) ,";" 

3140   PRINT  il,"CP",-YL(I) , YT , " ; LB" ; YL$ ( I ) ,CHR$(3) 

3150  NEXT  I 

3160  IF  YLABEL$=""  THEN  3190  ELSE  XT=YLMAX*1000/9+100 

3170  PRINT#1,  "SI  .19, .27;" 

3180  PRINT  #1,"PA",X0-XT,Y0,";DI  0, 1 ; CP" ,NY , 0, " ; LB" ; YLABELS, CHRS (3) , "DI  1,0; 

3190  IF  TOP$=""  THEN  3220  ELSE  PRINT#1,  "SI  .27, .40;" 

3200  PRINTil,"PA",X0,Y0+Z+300,"; " 

3210  PRINTil, "CP", (Z*6.2/1000-LEN(TOP$))/2,0,";LB";TOP$,CHR$(3) 

3220  PRINTil,  "PU;SC;PA  0,0;" 

3230  CLQSEi  1 

3240  ' - - MENU- 15 

3250  GOSUB    3300 

3260  LOCATE   3,26:  PRINT  "MENU-15:  RESTART/END  PROGRAM" 
3270  LOCATE  12,25:  INPUT  "*  RESTART  PROGRAM   Y/N  ";T$ 
3280  IF  T$="Y"  OR   Tl="y"  THEN  CLOSEil:  GOTO  200 
3290  CLOSEil:       SYSTEM:  END 

3300  ' SCREEN  BORDER  SUBROUTINE 

3310  CLS 

3320  LOCATE    2,1:   PRINT  CHR$ (201 ); STRINGS (77 ,205) ; CHR$  ( 187) 

3330  FOR  1=3  TO  23 

3340    LOCATE  1,1:   PRINT  CHRK186) 

3350    LOCATE  1,79:  PRINT  CHR$(186); 

3360  NEXT  I 

3370  LOCATE  24,1:    PRINT  CHR$  (200) ; STRI NG$ ( 77 , 205) ; CHRI ( 1 88) ; 

3380  RETURN 
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3390 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3470 
3480 
3490 
3500 
3510 
3520 
3530 
3540 
3550 
3560 
3570 
3580 
3590 
3600 
3610 
3620 
3630 
5000 
5010 
5015 
5020 
5025 
5030 
5035 
5040 
5045 
5050 
5055 


PEN  SELECTION  SUBROUTINE 


PRINT#1 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

PRINT#1 

IF  LT$= 

RETURN 


,  "SP;" 

8,25: 

10,25 

12,25 

13,25 

14,25 

15,25 

16,25 

17,25 

18,25 

19,25 

10,25 

10,54 

,  "SP"; 

""  THEN 


INPUT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
PCP,";" 
PRINT#1, 


";PCP 


"*  SELECT  PEN  COLOR  POSITION: 

"   SELECT  LINE  TYPE: 

"C/R:  SOLID 

"   0:  DOTS  AT  PLOTTED  POINTS" 

"   1:  DOTS  EQUALLY  SPACED" 

"   2:  SHORT  DASH" 

"   3:  LONG  DASH" 

"   4:  LONG  DASH  AND  DOT" 

"   5:  LONG  AND  SHORT  DASH" 

"   6:  LONG  AND  2  SHORT  DASHES" 

"  *" 

LT$ 


"LT;"  ELSE  PRINT#1,  "LT" , VAL  (  LT$)  , " ;  " 


LOCATE 

PRINT 

RETURN 


F10  LINE  SUBROUTINE 

23,25 
'PRESS  F10  AND  " ; CHR$ ( 1 7 ) ; CHR$  ( 196) ; CHR$  (21  7 ) ;  "  FOR  QUICK  ADVANCE" 


LOCATE 

PRINT 

RETURN 


F9  LINE  SUBROUTINE 

22,25 
'PRESS  F9   AND  " ; CHR$ ( 1 7 ) ; CHR$ ( 196) ; CHR$ ( 21 7 ) ; "  TO  REPEAT  MENU1 


RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 


FUNCTION  SUBROUTINES 
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